home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aau.d64 / mockpaint_cars (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  100 lines
  1. 1000 PRINTCHR$(147)
  2. 1010 POKE53280,0:POKE53281,0:POKE646,1
  3. 1015 :
  4. 1020 PRINTSPC(12)"[129]INKWELL SYSTEMS"
  5. 1030 PRINTSPC(12)"P R E S E N T S"
  6. 1032 PRINTSPC(1)"A DEMONSTRATION OF GRAPHICS AND SOUND"
  7. 1035 IFB=0THENB=1:LOAD"CARS* ",8,1
  8. 1040 IFT=0THENT=1:LOAD"DDMOCKPAINT",8,1
  9. 1041 GOSUB1069
  10. 1042 SYS32923
  11. 1043 FORI=1TO10000:NEXT :GOSUB1110
  12. 1044 GOSUB20000
  13. 1050 GOSUB1069
  14. 1060 GOTO1150
  15. 1068 REM PICTURE ON
  16. 1069 POKE 53280,12
  17. 1070 POKE53265,59
  18. 1080 POKE53272,120
  19. 1090 POKE56576,PEEK(56576)AND254
  20. 1100 RETURN
  21. 1108 REM PICTURE OFF
  22. 1109 POKE 53280,0
  23. 1110 POKE53265,27
  24. 1120 POKE53272,21
  25. 1130 POKE56576,PEEK(56576)OR1
  26. 1140 RETURN
  27. 1150 :
  28. 1160 :
  29. 1170 :GOSUB1069:FORI=1TO101000:NEXT
  30. 1172 POKE33847,4:GOSUB1109
  31. 3042 FORI=1TO10000:NEXT
  32. 3050 PRINT"[147]"
  33. 3055 GOTO1041
  34. 20000 POKE53280,0:POKE53281,0:PRINT"[147]"
  35. 20005 PRINT""
  36. 20010 A$="       [152]YOU MIGHT THINK ITS MACPAINT"
  37. 20020 FORI=1TOLEN(A$)
  38. 20030 FORZZ=1TO50:NEXTZZ
  39. 20040 PRINTMID$(A$,I,1);:NEXTI
  40. 20060 PRINT ""
  41. 20070 A$="[152]BUT IT'S NOT.  ITS [154]MOCKPAINT"
  42. 20080 A$="       "+A$
  43. 20090 FORI=1TOLEN(A$)
  44. 20100 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
  45. 20110 FORZZ=1TO27:NEXTZZ:NEXTI
  46. 20120 PRINT"[159]"
  47. 20130 A$="      [158]- A HIGH RESOLUTION DRAWING"
  48. 20140 FORI=1TOLEN(A$)
  49. 20150 FORZZ=1TO50:NEXTZZ
  50. 20155 PRINTMID$(A$,I,1);:NEXTI
  51. 20160 PRINT
  52. 20161 A$="        [158]CREATED WITH FLEXIDRAW."
  53. 20162 FORI=1TOLEN(A$)
  54. 20163 FORZZ=1TO50:NEXTZZ
  55. 20164 PRINTMID$(A$,I,1);:NEXTI
  56. 20190 PRINT""
  57. 20200 A$=" [129]FLEXIDRAW[152] IS A LIGHT PEN"
  58. 20201 A$="       "+A$
  59. 20202 FORI=1TOLEN(A$)
  60. 20203 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
  61. 20204 FORZZ=1TO27:NEXTZZ:NEXTI
  62. 20205 PRINT
  63. 20210 A$="     DRAWING PROGRAM.      "
  64. 20211 A$="       "+A$
  65. 20212 FORI=1TOLEN(A$)
  66. 20213 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
  67. 20214 FORZZ=1TO27:NEXTZZ:NEXT I
  68. 20217 PRINT""
  69. 20218 A$=" FROM [129]INKWELL SYSTEMS."
  70. 20219 A=LEN(A$):IFA/2<>INT(A/2)THENA$=" "+A$:GOTO20219
  71. 20220 FORI=1TOA/2
  72. 20230 PRINTTAB(19-I);LEFT$(A$,I);RIGHT$(A$,I)
  73. 20240 PRINT"[145]";
  74. 20250 FORZZ=1TO50:NEXTZZ
  75. 20260 NEXTI
  76. 20270 PRINT""
  77. 20280 A$="[129]FLEXIDRAW GIVES THE COMMODORE 64"
  78. 20290 A$="    "+A$
  79. 20291 FORI=1TOLEN(A$)
  80. 20292 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
  81. 20293 FORZZ=1TO27:NEXTZZ:NEXTI
  82. 20370 PRINT
  83. 20371 A$="THE POWERS OF A MACINTOSH.[146]"
  84. 20372 A$="       "+A$
  85. 20373 FORI=1TOLEN(A$)
  86. 20374 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
  87. 20375 FORZZ=1TO27:NEXTZZ:NEXTI
  88. 20381 PRINT""
  89. 20390 A$="  COMPLIMENTS OF [158]PETER AND PAUL HUGHES"
  90. 20400 FORI=1TOLEN(A$)
  91. 20410 M=ASC(MID$(A$,I,1))
  92. 20420 IFM<65ORM>90THENPRINTCHR$(M);:NEXTI
  93. 20430 FORJ=65TOM
  94. 20440 FORH=1TO5:NEXTH
  95. 20450 PRINTCHR$(J);"[157]";
  96. 20460 NEXTJ
  97. 20470 PRINT"";
  98. 20480 NEXTI:FORU=1TO5000:NEXTU
  99. 20490 RETURN
  100.